TOP

استيراد أسعار الصرف من موقع البنك الوطني الأوكراني إلى LibreOffice Calk

NBU_RATE() الوصف

وظيفة جاهزة لأولئك الذين يضطرون غالبًا إلى استخدام أسعار العملات البنك الأهلي الأوكراني في LibreOffice Cac .

يساعد في الحصول على قيمة سعر الصرف تلقائيا من موقع البنك الوطني الأوكراني من خلال الكود والتاريخ الخاص به.

رمز StarBASIC للوظيفة NBU_RATE

لإضافة ميزة أسعار صرف الواردات من البنك الأهلي الأوكراني ، افتح القائمة Tools - Macros - Edit Macros... ، يختار Module1 وانسخ النص التالي إلى هذه الوحدة:

Function NBU_RATE(ByVal pCurrency, ByVal pDate)
  'moonexcel.com.ua 
  Dim FCalc As Object
  
  If Len(pCurrency) = 0 Or Len(pDate) = 0 Then Exit Function             
      
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")
  
  tDate = FCalc.callFunction("TEXT", Array(pDate,"YYYYMMDD"))
                                                    
  RequestString = "https://bank.gov.ua/NBU_Exchange/exchange_site?start=" & tDate & "&end=" & tDate & "&valcode=" & pCurrency
            
  WebServiceResponse = FCalc.callFunction("WEBSERVICE", Array(RequestString))  
  
  NBU_RATE = FCalc.callFunction("FILTERXML", Array(WebServiceResponse,"//rate_per_unit"))    
End Function

أغلقه Macro Editor والعودة إلى LibreOffice Cac .

الآن يمكنك إدخال وظيفتنا يدويًا NBU_RATE() . بناء جملة هذه الوظيفة كما يلي:

=NBU_RATE ( رمز العملة ; تاريخ )

ستكون لدينا النتيجة التالية: